home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / grafik / raytracing / rayshade-4.0.6.3 / examples / flameanim.ray < prev    next >
Encoding:
Text File  |  1994-08-09  |  1.1 KB  |  58 lines
  1. /* animation for the CG-Praktikum */
  2. /* written by Reto Mani           */
  3. /* (flame is part of my project)  */
  4.  
  5.  
  6. /* Definitions */
  7. #define ANZ 30
  8. #define ANG 720.0/ANZ
  9. #define ANG2 360.0/ANZ
  10. #define RAD 3.0
  11. #define CUB .7
  12.  
  13.  
  14. /* Globals */
  15. screen 200 200
  16. eyep  0 -10 1.5
  17. maxdepth 3
  18. frames 30
  19. starttime 0
  20.  
  21. /* Surfaces */
  22. surface Metall
  23.    diffuse  .8 .8 .9
  24.    reflect .6
  25. surface White
  26.     diffuse .3 .3 .3
  27. surface White2
  28.     diffuse 1 1 1
  29. surface LightBlue
  30.     diffuse .7 .7 1
  31.  
  32.  
  33. /* Lights */
  34. light .7 point (-RAD*2) 0 3
  35. light .7 point (RAD*2) 0 3
  36. light .7 point 0 (-RAD*2) 3
  37. light .7 point 0 (RAD*2) 3
  38. light .9 point 0 -8 3
  39.  
  40. /* Objects */
  41. name Mb list
  42.    box White2  -CUB -CUB -CUB  CUB CUB CUB texture wood
  43. end
  44.  
  45. object Mb rotate 0 1 0  (ANG*time) translate RAD 0 0  rotate 0 0 1 (ANG2*time)
  46. object Mb rotate -1 0 0 (ANG*time) translate 0 RAD 0  rotate 0 0 1 (ANG2*time)
  47. object Mb rotate 0 -1 0 (ANG*time) translate -RAD 0 0 rotate 0 0 1 (ANG2*time)
  48. object Mb rotate 1 0 0  (ANG*time) translate 0 -RAD 0 rotate 0 0 1 (ANG2*time)
  49.  
  50. torus Metall  RAD .2  0 0 0  0 0 1
  51. sphere Metall 3  0 0 -4.1
  52. flame 8  0 0 -2 1 .4
  53. plane LightBlue  0 0 -1.5  0 0 1  texture marble
  54.  
  55.  
  56.  
  57.  
  58.